object Form3: TForm3
  Left = 0
  Top = 0
  Caption = 'Test Form'
  ClientHeight = 457
  ClientWidth = 888
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 888
    Height = 457
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '#1'
      DesignSize = (
        880
        429)
      object Label1: TLabel
        Left = 98
        Top = 100
        Width = 54
        Height = 13
        Caption = 'RowCount:'
      end
      object Label2: TLabel
        Left = 231
        Top = 100
        Width = 74
        Height = 13
        Caption = 'Column access:'
      end
      object lTiks: TLabel
        Left = 123
        Top = 126
        Width = 18
        Height = 13
        Caption = '000'
      end
      object Label3: TLabel
        Left = 24
        Top = 126
        Width = 93
        Height = 13
        Caption = 'Fill grid miliseconds:'
      end
      object Button1: TButton
        Left = 24
        Top = 16
        Width = 105
        Height = 25
        Caption = 'TBittArrayTest'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 184
        Top = 16
        Width = 65
        Height = 25
        Caption = 'Set record'
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 255
        Top = 16
        Width = 65
        Height = 25
        Caption = 'Get record'
        TabOrder = 2
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 326
        Top = 16
        Width = 75
        Height = 25
        Caption = 'Show record'
        TabOrder = 3
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 407
        Top = 16
        Width = 75
        Height = 25
        Caption = 'Rec AsRtti'
        TabOrder = 4
        OnClick = Button5Click
      end
      object Button7: TButton
        Left = 24
        Top = 64
        Width = 65
        Height = 25
        Caption = 'Clear grid'
        TabOrder = 5
        OnClick = Button7Click
      end
      object Button6: TButton
        Left = 24
        Top = 95
        Width = 65
        Height = 25
        Caption = 'Fill grid:'
        TabOrder = 6
        OnClick = Button6Click
      end
      object eRowCount: TEdit
        Left = 158
        Top = 97
        Width = 67
        Height = 21
        TabOrder = 7
        Text = '200000'
      end
      object rbByName: TRadioButton
        Left = 311
        Top = 99
        Width = 58
        Height = 17
        Caption = 'By name'
        Checked = True
        TabOrder = 8
        TabStop = True
      end
      object rbByIndex: TRadioButton
        Left = 375
        Top = 99
        Width = 58
        Height = 17
        Caption = 'By index'
        TabOrder = 9
      end
      object rbDirect: TRadioButton
        Left = 439
        Top = 99
        Width = 98
        Height = 17
        Caption = 'Direct by type'
        TabOrder = 10
      end
      object chbWithVar: TCheckBox
        Left = 311
        Top = 119
        Width = 146
        Height = 17
        Caption = 'With TValue and Variant'
        Checked = True
        State = cbChecked
        TabOrder = 11
      end
      object DrawGrid: TDrawGrid
        Left = 3
        Top = 145
        Width = 874
        Height = 281
        Anchors = [akLeft, akTop, akRight, akBottom]
        DefaultRowHeight = 18
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goRowMoving, goColMoving, goThumbTracking, goFixedColClick, goFixedRowClick, goFixedHotTrack]
        TabOrder = 12
        OnDrawCell = DrawGridDrawCell
      end
    end
    object TabSheet2: TTabSheet
      Caption = '#2'
      ImageIndex = 1
      object Splitter1: TSplitter
        Left = 0
        Top = 97
        Width = 880
        Height = 4
        Cursor = crVSplit
        Align = alTop
        ExplicitWidth = 724
      end
      object AVGrid: TAVGrid
        Left = 0
        Top = 101
        Width = 880
        Height = 328
        Columns = <
          item
            Name = 'str1'
            Caption = 'str1'
            CaptionAlignment = taCenter
            Alignment = taRightJustify
            Visible = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clOlive
            Font.Height = -11
            Font.Name = 'Verdana'
            Font.Style = []
            CaptionFont.Charset = DEFAULT_CHARSET
            CaptionFont.Color = clWindowText
            CaptionFont.Height = -11
            CaptionFont.Name = 'Tahoma'
            CaptionFont.Style = []
            ValueType = avtString
            Color = clWindow
            DrawImage = False
            DrawText = True
            ImageIndex = -1
            ImagesCount = 0
            ReadOnly = False
          end
          item
            Name = 'int'
            Caption = 'int'
            CaptionAlignment = taCenter
            Alignment = taRightJustify
            Visible = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Verdana'
            Font.Style = []
            CaptionFont.Charset = DEFAULT_CHARSET
            CaptionFont.Color = clWindowText
            CaptionFont.Height = -11
            CaptionFont.Name = 'Tahoma'
            CaptionFont.Style = []
            ValueType = avtInt32
            Color = clWindow
            DrawImage = False
            DrawText = True
            ImageIndex = -1
            ImagesCount = 0
            ReadOnly = False
          end
          item
            Name = 'str2'
            Caption = 'str2'
            CaptionAlignment = taCenter
            Alignment = taLeftJustify
            Visible = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Verdana'
            Font.Style = []
            CaptionFont.Charset = DEFAULT_CHARSET
            CaptionFont.Color = clRed
            CaptionFont.Height = -11
            CaptionFont.Name = 'Tahoma'
            CaptionFont.Style = []
            ValueType = avtString
            Color = clLime
            DrawImage = False
            DrawText = True
            ImageIndex = -1
            ImagesCount = 0
            ReadOnly = False
          end
          item
            Name = 'float'
            Caption = 'float'
            CaptionAlignment = taCenter
            Alignment = taRightJustify
            Visible = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clFuchsia
            Font.Height = -11
            Font.Name = 'Verdana'
            Font.Style = [fsBold]
            CaptionFont.Charset = DEFAULT_CHARSET
            CaptionFont.Color = clWindowText
            CaptionFont.Height = -11
            CaptionFont.Name = 'Tahoma'
            CaptionFont.Style = []
            ValueType = avtDouble
            Color = clWindow
            Format = '%10.2n'
            DrawImage = False
            DrawText = True
            ImageIndex = -1
            ImagesCount = 0
            ReadOnly = False
          end
          item
            Name = 'date'
            Caption = 'date'
            CaptionAlignment = taCenter
            Alignment = taLeftJustify
            Visible = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clLime
            Font.Height = -11
            Font.Name = 'Verdana'
            Font.Style = []
            CaptionFont.Charset = DEFAULT_CHARSET
            CaptionFont.Color = clWindowText
            CaptionFont.Height = -11
            CaptionFont.Name = 'Tahoma'
            CaptionFont.Style = []
            ValueType = avtDate
            Color = clWindow
            Format = 'yyyy-mm-dd hh:nn'
            DrawImage = False
            DrawText = True
            ImageIndex = -1
            ImagesCount = 0
            ReadOnly = False
          end
          item
            Name = 'bool'
            Caption = 'bool'
            CaptionAlignment = taCenter
            Alignment = taCenter
            Visible = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Verdana'
            Font.Style = []
            CaptionFont.Charset = DEFAULT_CHARSET
            CaptionFont.Color = clWindowText
            CaptionFont.Height = -11
            CaptionFont.Name = 'Tahoma'
            CaptionFont.Style = []
            ValueType = avtBool
            Color = clWindow
            DrawImage = True
            DrawText = False
            ImageIndex = -1
            ImagesCount = 0
            ReadOnly = False
          end
          item
            Name = 'int64'
            Caption = 'int64'
            CaptionAlignment = taCenter
            Alignment = taRightJustify
            Visible = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Verdana'
            Font.Style = []
            CaptionFont.Charset = DEFAULT_CHARSET
            CaptionFont.Color = clWindowText
            CaptionFont.Height = -11
            CaptionFont.Name = 'Tahoma'
            CaptionFont.Style = []
            ValueType = avtInt64
            Color = clWindow
            Format = '%15.2d'
            DrawImage = False
            DrawText = True
            ImageIndex = -1
            ImagesCount = 0
            ReadOnly = False
          end>
        ShowStatusCol = True
        ReadOnly = False
        AcceptAddRow = True
        SelectionColor = 16765606
        EnableGrouping = True
        AlwaysShowGroupPannel = False
        OnBeforeSort = AVGridBeforeSort
        OnAfterSort = AVGridAfterSort
        UseThemeForCell = True
        Align = alClient
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 880
        Height = 97
        Align = alTop
        TabOrder = 1
        object Label4: TLabel
          Left = 16
          Top = 15
          Width = 55
          Height = 13
          Caption = 'Row count:'
        end
        object Splitter2: TSplitter
          Left = 568
          Top = 1
          Width = 4
          Height = 95
          Align = alRight
          ExplicitLeft = 413
        end
        object Label5: TLabel
          Left = 2
          Top = 76
          Width = 28
          Height = 13
          Caption = 'Filter:'
        end
        object Label6: TLabel
          Left = 162
          Top = 76
          Width = 19
          Height = 13
          Caption = 'Col:'
        end
        object e_RowCount: TEdit
          Left = 77
          Top = 12
          Width = 84
          Height = 21
          TabOrder = 0
          Text = '100000'
        end
        object Button8: TButton
          Left = 167
          Top = 10
          Width = 75
          Height = 25
          Caption = 'Fill grid'
          TabOrder = 1
          OnClick = Button8Click
        end
        object chbReadOnly: TCheckBox
          Left = 16
          Top = 39
          Width = 97
          Height = 17
          Caption = 'ReadOnly'
          TabOrder = 2
          OnClick = chbReadOnlyClick
        end
        object memo: TMemo
          Left = 572
          Top = 1
          Width = 307
          Height = 95
          Margins.Left = 10
          Margins.Bottom = 10
          Align = alRight
          ScrollBars = ssBoth
          TabOrder = 3
        end
        object e_filter: TEdit
          Left = 33
          Top = 72
          Width = 121
          Height = 21
          TabOrder = 4
          OnChange = e_filterChange
        end
        object e_filter_col: TEdit
          Left = 185
          Top = 72
          Width = 75
          Height = 21
          TabOrder = 5
          Text = 'str1'
        end
        object CheckBox1: TCheckBox
          Left = 104
          Top = 39
          Width = 97
          Height = 17
          Caption = 'GroupPannel'
          TabOrder = 6
          OnClick = CheckBox1Click
        end
        object cbTheme: TComboBox
          Left = 354
          Top = 12
          Width = 183
          Height = 21
          DropDownCount = 15
          TabOrder = 7
          OnChange = cbThemeChange
        end
        object chbTheme: TCheckBox
          Left = 292
          Top = 14
          Width = 57
          Height = 17
          Caption = 'Theme:'
          Checked = True
          State = cbChecked
          TabOrder = 8
          OnClick = chbThemeClick
        end
      end
    end
  end
end
